home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / ifp1s155.zip / PAGE_21.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-21  |  1KB  |  46 lines

  1. unit page_21;
  2.  
  3. interface
  4.  
  5. uses crt, ifpglobl, ifpcomon;
  6.  
  7. procedure page21;
  8.  
  9. implementation
  10.  
  11. procedure page21;
  12.   var
  13.     xbyte: byte;
  14.  
  15.   begin
  16.   TextColor(White);
  17.   GotoXY((twidth div 2) - 15, 1);
  18.   Writeln('Thank You for using INFOPLUS!!');
  19.   Writeln;
  20.   TextColor(LightCyan);
  21.   Writeln('  If you have any questions, bug reports, or suggestions, I can be');
  22.   Writeln('reached at the following places:');
  23.   Writeln;
  24.   TextColor(LightRed);
  25.   Writeln('Internet       : andyross@infopls.chi.il.us');
  26.   Writeln('UUCP           : uunet!infopls!andyross');
  27.   Writeln('CompuServe     : >INTERNET:andyross@infopls.chi.il.us');
  28.   Writeln;
  29.   Writeln('Infoplus BBS   : (708)537-0247 (14400/9600/2400/1200 v32bis/v42bis/MNP)');
  30.   Writeln('RCS Defender   : (708)390-6603 (2400/1200, 2 lines)');
  31.   Writeln('               : (708)390-9662 (14400/9600/2400/1200 v32bis/v42bis/MNP)');
  32.   Writeln('Beacon         : (708)615-0845 (2400/1200)');
  33. {
  34.   Writeln('ddsw1          : (312)248-0900 (2400/1200)');
  35.   Writeln('                 (312)248-5088 (9600/2400/1200 v32/v42bis/MNP)');
  36.   Writeln('                 (312)248-6295 (9600/2400/1200/PEP v32/v42bis/MNP)');
  37. }
  38.   Window(1, tlength - 2, twidth, tlength - 2);
  39.   xbyte:=TextAttr;
  40.   TextColor(White);
  41.   TextBackground(Brown);
  42.   ClrScr;
  43.   Write('INFOPLUS ', qversion, ', by Andrew Rossmann, ' + qdate);
  44.   TextAttr:=xbyte;
  45.   end;
  46. end.